home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_7 / issue_12 / quantum / !Executor / countobj (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1994-07-25  |  464 b   |  19 lines
  1.  Reads the BASIC parameter pathname and returns the number of objects in a Filer window in the system variable KS$Line.
  2. len%=2048
  3.  buffer len%
  4.  "OS_GetEnv" 
  5.  add%
  6. loop%=0:text$=""
  7. C%=?(add%+loop%)
  8. text$=text$+
  9. loop%+=1
  10.  C%=0
  11. text$,""" ")+2
  12. text$=
  13. text$,P%)
  14. (text$)
  15.  "XOS_GBPB",10,text$,buffer,999,0,len%,0 
  16.  ,,,number%
  17. ("SETEVAL KS$line "+
  18. (number%))
  19.